home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / buildy1a / vsplit < prev    next >
Text File  |  1999-09-07  |  2KB  |  121 lines
  1. VERSION 1.0 CLASS
  2. BEGIN
  3.   MultiUse = -1  'True
  4. END
  5. Attribute VB_Name = "vSplit"
  6. Attribute VB_GlobalNameSpace = False
  7. Attribute VB_Creatable = True
  8. Attribute VB_PredeclaredId = False
  9. Attribute VB_Exposed = True
  10. Option Explicit
  11.  
  12. ' local variable(s) to hold property value(s)
  13. Private mHostPane As Object ' local copy
  14. Private mLeftPane As Object ' local copy
  15. Private mRightPane As Object ' local copy
  16. Private mSplitBar As Object ' local copy
  17. Private mSplitOn As Boolean ' local copy
  18.  
  19. Public Property Get HostPane() As Object
  20.   '
  21.   Set HostPane = mHostPane
  22.   '
  23. End Property
  24.  
  25. Public Property Set HostPane(ByVal vData As Object)
  26.   '
  27.   Set mHostPane = vData
  28.   '
  29. End Property
  30.  
  31. Public Property Get RightPane() As Object
  32.   '
  33.   Set RightPane = mRightPane
  34.   '
  35. End Property
  36.  
  37. Public Property Set RightPane(ByVal vData As Object)
  38.   '
  39.   Set mRightPane = vData
  40.   '
  41. End Property
  42.  
  43. Public Property Get LeftPane() As Object
  44.   '
  45.   Set LeftPane = mLeftPane
  46.   '
  47. End Property
  48.  
  49. Public Property Set LeftPane(ByVal vData As Object)
  50.   '
  51.   Set mLeftPane = vData
  52.   '
  53. End Property
  54.  
  55. Public Property Get SplitBar() As Object
  56.   '
  57.   Set SplitBar = mSplitBar
  58.   '
  59. End Property
  60.  
  61. Public Property Set SplitBar(ByVal vData As Object)
  62.   '
  63.   Set mSplitBar = vData
  64.   '
  65. End Property
  66.  
  67. Public Property Get SplitOn() As Boolean
  68.   '
  69.   SplitOn = mSplitOn
  70.   '
  71. End Property
  72.  
  73. Public Property Let SplitOn(ByVal vData As Boolean)
  74.   '
  75.   mSplitOn = vData
  76.   '
  77. End Property
  78.  
  79. Public Sub SetPointer(ByVal pType As Integer)
  80.   '
  81.   mHostPane.MousePointer = pType
  82.   '
  83. End Sub
  84.  
  85. Public Sub ResizePanes(Optional Twips As Single)
  86.   '
  87.   On Error GoTo localerr
  88.   '
  89.   If IsMissing(Twips) Then
  90.     Twips = 0
  91.   End If
  92.   '
  93.   With mSplitBar
  94.     .Top = 0
  95.     .Left = .Left + Twips
  96.     .Height = mHostPane.ScaleHeight
  97.     .Width = 30
  98.   End With
  99.   '
  100.   With mLeftPane
  101.     .Top = 0
  102.     .Left = 0
  103.     .Height = mHostPane.ScaleHeight
  104.     .Width = mSplitBar.Left
  105.   End With
  106.   '
  107.   With mRightPane
  108.     .Top = 0
  109.     .Left = mSplitBar.Left + mSplitBar.Width
  110.     .Height = mHostPane.ScaleHeight
  111.     .Width = mHostPane.ScaleWidth - _
  112.           (mLeftPane.Width + mSplitBar.Width)
  113.   End With
  114.   '
  115.   Exit Sub
  116.   '
  117. localerr:
  118.    'ignore any errors
  119. End Sub
  120.  
  121.